home *** CD-ROM | disk | FTP | other *** search
/ Collection of Tools & Utilities / Collection of Tools and Utilities.iso / ada / gnat1792.zip / gnat179b / t-adainc / a-cwila1.ads < prev    next >
Text File  |  1994-05-19  |  20KB  |  295 lines
  1. ------------------------------------------------------------------------------
  2. --                                                                          --
  3. --                         GNAT RUNTIME COMPONENTS                          --
  4. --                                                                          --
  5. --           A D A . C H A R A C T E R S . W I D E _ L A T I N 1            --
  6. --                                                                          --
  7. --                                 S p e c                                  --
  8. --                                                                          --
  9. --                            $Revision: 1.2 $                              --
  10. --                                                                          --
  11. --           Copyright (c) 1992,1993,1994 NYU, All Rights Reserved          --
  12. --                                                                          --
  13. -- GNAT is free software;  you can  redistribute it  and/or modify it under --
  14. -- terms of the  GNU General Public License as published  by the Free Soft- --
  15. -- ware  Foundation;  either version 2,  or (at your option) any later ver- --
  16. -- sion.  GNAT is distributed in the hope that it will be useful, but WITH- --
  17. -- OUT ANY WARRANTY;  without even the  implied warranty of MERCHANTABILITY --
  18. -- or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public License --
  19. -- for  more details.  You should have  received  a copy of the GNU General --
  20. -- Public License  distributed with GNAT;  see file COPYING.  If not, write --
  21. -- to the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. --
  22. --                                                                          --
  23. ------------------------------------------------------------------------------
  24.  
  25.  
  26. package Ada.Characters.Wide_Latin_1 is
  27.  
  28.    pragma Pure;
  29.  
  30.    ------------------------
  31.    -- Control Wide_Characters --
  32.    ------------------------
  33.  
  34.    NUL                  : constant Wide_Character := Wide_Character'Val (0);
  35.    SOH                  : constant Wide_Character := Wide_Character'Val (1);
  36.    STX                  : constant Wide_Character := Wide_Character'Val (2);
  37.    ETX                  : constant Wide_Character := Wide_Character'Val (3);
  38.    EOT                  : constant Wide_Character := Wide_Character'Val (4);
  39.    ENQ                  : constant Wide_Character := Wide_Character'Val (5);
  40.    ACK                  : constant Wide_Character := Wide_Character'Val (6);
  41.    BEL                  : constant Wide_Character := Wide_Character'Val (7);
  42.    BS                   : constant Wide_Character := Wide_Character'Val (8);
  43.    HT                   : constant Wide_Character := Wide_Character'Val (9);
  44.    LF                   : constant Wide_Character := Wide_Character'Val (10);
  45.    VT                   : constant Wide_Character := Wide_Character'Val (11);
  46.    FF                   : constant Wide_Character := Wide_Character'Val (12);
  47.    CR                   : constant Wide_Character := Wide_Character'Val (13);
  48.    SO                   : constant Wide_Character := Wide_Character'Val (14);
  49.    SI                   : constant Wide_Character := Wide_Character'Val (15);
  50.  
  51.    DLE                  : constant Wide_Character := Wide_Character'Val (16);
  52.    DC1                  : constant Wide_Character := Wide_Character'Val (17);
  53.    DC2                  : constant Wide_Character := Wide_Character'Val (18);
  54.    DC3                  : constant Wide_Character := Wide_Character'Val (19);
  55.    DC4                  : constant Wide_Character := Wide_Character'Val (20);
  56.    NAK                  : constant Wide_Character := Wide_Character'Val (21);
  57.    SYN                  : constant Wide_Character := Wide_Character'Val (22);
  58.    ETB                  : constant Wide_Character := Wide_Character'Val (23);
  59.    CAN                  : constant Wide_Character := Wide_Character'Val (24);
  60.    EM                   : constant Wide_Character := Wide_Character'Val (25);
  61.    SUB                  : constant Wide_Character := Wide_Character'Val (26);
  62.    ESC                  : constant Wide_Character := Wide_Character'Val (27);
  63.    FS                   : constant Wide_Character := Wide_Character'Val (28);
  64.    GS                   : constant Wide_Character := Wide_Character'Val (29);
  65.    RS                   : constant Wide_Character := Wide_Character'Val (30);
  66.    US                   : constant Wide_Character := Wide_Character'Val (31);
  67.  
  68.    --------------------------------
  69.    -- ISO 646 Graphic Wide_Characters --
  70.    --------------------------------
  71.  
  72.    Space                : constant Wide_Character := Wide_Character'Val (32);
  73.    Exclamation          : constant Wide_Character := Wide_Character'Val (33);
  74.    Quotation            : constant Wide_Character := Wide_Character'Val (34);
  75.    Number_Sign          : constant Wide_Character := Wide_Character'Val (35);
  76.    Dollar_Sign          : constant Wide_Character := Wide_Character'Val (36);
  77.    Percent_Sign         : constant Wide_Character := Wide_Character'Val (37);
  78.    Ampersand            : constant Wide_Character := Wide_Character'Val (38);
  79.    Apostrophe           : constant Wide_Character := Wide_Character'Val (39);
  80.    Left_Parenthesis     : constant Wide_Character := Wide_Character'Val (40);
  81.    Right_Parenthesis    : constant Wide_Character := Wide_Character'Val (41);
  82.    Asterisk             : constant Wide_Character := Wide_Character'Val (42);
  83.    Plus_Sign            : constant Wide_Character := Wide_Character'Val (43);
  84.    Comma                : constant Wide_Character := Wide_Character'Val (44);
  85.    Hyphen               : constant Wide_Character := Wide_Character'Val (45);
  86.    Minus_Sign           : Wide_Character renames Hyphen;
  87.    Full_Stop            : constant Wide_Character := Wide_Character'Val (46);
  88.    Solidus              : constant Wide_Character := Wide_Character'Val (47);
  89.  
  90.    --  Decimal digits '0' though '9' are at positions 48 through 57
  91.  
  92.    Colon                : constant Wide_Character := Wide_Character'Val (58);
  93.    Semicolon            : constant Wide_Character := Wide_Character'Val (59);
  94.    Less_Than_Sign       : constant Wide_Character := Wide_Character'Val (60);
  95.    Equals_Sign          : constant Wide_Character := Wide_Character'Val (61);
  96.    Greater_Than_Sign    : constant Wide_Character := Wide_Character'Val (62);
  97.    Question             : constant Wide_Character := Wide_Character'Val (63);
  98.    Commercial_At        : constant Wide_Character := Wide_Character'Val (64);
  99.  
  100.    --  Letters 'A' through 'Z' are at positions 65 through 90
  101.  
  102.    Left_Square_Bracket  : constant Wide_Character := Wide_Character'Val (91);
  103.    Reverse_Solidus      : constant Wide_Character := Wide_Character'Val (92);
  104.    Right_Square_Bracket : constant Wide_Character := Wide_Character'Val (93);
  105.    Circumflex           : constant Wide_Character := Wide_Character'Val (94);
  106.    Low_Line             : constant Wide_Character := Wide_Character'Val (95);
  107.    Grave                : constant Wide_Character := Wide_Character'Val (96);
  108.    LC_A                 : constant Wide_Character := Wide_Character'Val (97);
  109.    LC_B                 : constant Wide_Character := Wide_Character'Val (98);
  110.    LC_C                 : constant Wide_Character := Wide_Character'Val (99);
  111.    LC_D                 : constant Wide_Character := Wide_Character'Val (100);
  112.    LC_E                 : constant Wide_Character := Wide_Character'Val (101);
  113.    LC_F                 : constant Wide_Character := Wide_Character'Val (102);
  114.    LC_G                 : constant Wide_Character := Wide_Character'Val (103);
  115.    LC_H                 : constant Wide_Character := Wide_Character'Val (104);
  116.    LC_I                 : constant Wide_Character := Wide_Character'Val (105);
  117.    LC_J                 : constant Wide_Character := Wide_Character'Val (106);
  118.    LC_K                 : constant Wide_Character := Wide_Character'Val (107);
  119.    LC_L                 : constant Wide_Character := Wide_Character'Val (108);
  120.    LC_M                 : constant Wide_Character := Wide_Character'Val (109);
  121.    LC_N                 : constant Wide_Character := Wide_Character'Val (110);
  122.    LC_O                 : constant Wide_Character := Wide_Character'